\name{ct_abbrev}
\alias{ct_abbrev}
\title{
Create abbreviations from club names
}
\description{
This functions creates abbreviations from club names and returns them as a vector. The algorithm is quite simple and generally uses the first three letters of the club names, so do not expect the abbreviations to be \dQuote{nice}.
}
\usage{
ct_abbrev(data)
}
\arguments{
  \item{data}{
a vector of club names
}
}
\examples{
# Load the crosstab

data(bundesliga_12_13)

# Replace the names with abbreviations

colnames(bundesliga_12_13) <- ct_abbrev(colnames(bundesliga_12_13))
rownames(bundesliga_12_13) <- colnames(bundesliga_12_13)
}
\keyword{ misc }
